home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / util / cli / MayFlower.lha / MayFlower / CapsLock / testit < prev   
Text File  |  1994-03-03  |  456b  |  24 lines
  1. CapsLock
  2. IF WARN
  3.  echo "*e[33m CapsLock key is lit USING: ON WARN *e[0m"
  4. ELSE
  5.  echo "CapsLock key is off"
  6. ENDIF
  7. FAILAT 11
  8. CapsLock e
  9. IF ERROR
  10.  echo "*e[33m CapsLock key is lit USING: ON ERROR *e[0m"
  11. ELSE
  12.  echo "CapsLock key is off"
  13. ENDIF
  14. FAILAT 21
  15. CapsLock f
  16. IF FAIL
  17.  echo "*e[33m CapsLock key is lit USING: ON FAIL *e[0m"
  18. ELSE
  19.  echo "CapsLock key is off"
  20. ENDIF
  21. FAILAT 10
  22. CapsLock e
  23. echo "If CapsLock is lit then 'FAILAT 10' keeps this line from printing"
  24.